home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbtext.dxr / 00001_Start Stop Code.ls next >
Encoding:
Text File  |  2000-01-18  |  2.8 KB  |  110 lines
  1. on startMovie
  2.   if count(the windowList) = 0 then
  3.     clearGlobals()
  4.     case #re of
  5.       #a:
  6.         fn = "African Development Foundation"
  7.       #al:
  8.         fn = "alabama"
  9.       #am:
  10.         fn = "amtrak"
  11.       #b:
  12.         fn = "baker v. carr"
  13.       #e:
  14.         fn = "Everson v. board of education"
  15.       #m:
  16.         fn = "Miranda v. Arizona"
  17.       #re:
  18.         fn = "Request for a Declaration of War"
  19.       #w:
  20.         fn = "Wallace v. Jaffree"
  21.       #zz:
  22.         fn = "Alien and Sedition Act"
  23.     end case
  24.     init(fn && " (dummy title)", fn)
  25.   end if
  26. end
  27.  
  28. on CloseMIAW
  29.   global gDBTextVarList, gForgetList
  30.   go(the frame + 1)
  31.   MyObj = getaProp(gDBTextVarList, GetObjProp())
  32.   condemn(MyObj)
  33.   deleteProp(gDBTextVarList, GetObjProp())
  34.   append(gForgetList, the activeWindow)
  35. end
  36.  
  37. on changeStates
  38.   the itemDelimiter = ":"
  39.   repeat with i = 98 to 147
  40.     mem = member(i, "DBText.CST")
  41.     mem.alignment = "left"
  42.     mem.font = "Helvetica"
  43.     mem.fontSize = 12
  44.     mem.fontStyle = "plain"
  45.     mem.rect = rect(0, 0, 424, mem.height)
  46.     end = the number of lines in field i of castLib "DBText.CST"
  47.     repeat with j = 1 to end
  48.       if line j of field i of castLib "DBText.CST" contains ":" then
  49.         words = the number of words in item 1 of line j of field i of castLib "DBText.CST"
  50.         repeat with k = 1 to words
  51.           theWord = word k of line j of field i of castLib "DBText.CST"
  52.           if getOne(["of", "per"], theWord) = 0 then
  53.             letter = translate(char 1 of theWord)
  54.             put letter into char 1 of word k of line j of field i of castLib "DBText.CST"
  55.           end if
  56.         end repeat
  57.         set the textStyle of item 1 of line j of field i of castLib "DBText.CST" to "bold"
  58.       end if
  59.     end repeat
  60.   end repeat
  61. end
  62.  
  63. on changeOrgs
  64.   the itemDelimiter = ":"
  65.   repeat with i = 290 to 393
  66.     mem = member(i, "DBText.CST")
  67.     if mem.type = #field then
  68.       mem.alignment = "left"
  69.       mem.font = "Helvetica"
  70.       mem.fontSize = 12
  71.     end if
  72.   end repeat
  73. end
  74.  
  75. on changeReadings
  76.   repeat with i = 411 to 471
  77.     mem = member(i, "DBText.CST")
  78.     if mem.type = #field then
  79.       mem.alignment = "left"
  80.       mem.font = "Helvetica"
  81.       mem.fontSize = 12
  82.       mem.fontStyle = "plain"
  83.       set the textStyle of line 1 of field i of castLib "DBText.CST" to "bold"
  84.     end if
  85.   end repeat
  86. end
  87.  
  88. on changeActs
  89.   repeat with i = 494 to 587
  90.     mem = member(i, "DBText.CST")
  91.     if mem.type = #field then
  92.       mem.alignment = "left"
  93.       mem.font = "Helvetica"
  94.       mem.fontSize = 12
  95.       mem.fontStyle = "plain"
  96.       mem.rect = rect(0, 0, 424, mem.height)
  97.     end if
  98.   end repeat
  99. end
  100.  
  101. on changeTextType
  102.   repeat with i = 1 to 999
  103.     mem = member(i, "DBText.CST")
  104.     if mem.type = #field then
  105.       mem.boxType = #fixed
  106.       mem.editable = 0
  107.     end if
  108.   end repeat
  109. end
  110.